home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / amoked / macros / oberonc.aed < prev    next >
Encoding:
Text File  |  1997-02-16  |  808 b   |  44 lines
  1. /* OberonC - Compiliert Oberon Programme */
  2.  
  3. options results
  4.  
  5. if ~show('L','rexxsupport.library') then
  6.    call addlib('rexxsupport.library',0,-30)
  7.  
  8. 'top first'
  9. 'find MODULE' ; 'wright'
  10. 'scanf %[~;]'
  11. 'chfilename $scanf.mod'
  12.  
  13. 'getval $filename'
  14. filename = result
  15.  
  16. 'getval $screenname'
  17. screenname = result
  18.  
  19. opts = ''
  20.  
  21. IF open('file','env:.OCopt','R') THEN DO
  22.   copts = readln('file')
  23.   close('file')
  24. END;
  25.  
  26. 'if m (top first find :Date. right wright remeol ('||date() time()||'))'
  27. 'if m saveold'
  28.  
  29. call close 'STDERR'
  30. call open 'STDERR','NIL:','W'
  31. call close 'STDIN'
  32. call close 'STDOUT'
  33. call open 'STDOUT','CON:25/15/640/256/RexxCon/SCREEN'||screenname,'RW'
  34. call pragma '*','STDOUT'
  35.  
  36. address command 'oberon >* <*' copts filename
  37.  
  38. if rc ~= 0 then do
  39.   close('STDOUT')
  40.   'ObError read'
  41. end; else
  42.   close('STDOUT')
  43.  
  44.